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COMPUTER PROGRAMING* (IT) 

















u 






mi 



f-, t vt>j ^ ^ -• frvyyjcy »« r h?^ 1 ' wnjig w yygJi \p 



-*, > 

••7*' 



“V 



RF Project 1685 *• 6 



« the OHIO STATE UNIVERSITY 



OJ 



UJ 




RESEARCH FOUNDATION 



U.S. DEPARTMENT OFHEALTH, EDUCATIONIST WELFARE 
OFFICE OF EDUCATION 



MUJUKIIEAR ROAD COLUMBUS, OHIO 43212 



THIS DOCUMENT HAS BEEN REPRODUCED EXACTLY AS RECEIVED FROM THE 
PERSON OR ORGANIZAllON ORIGINATING IT. POINTS OF VIEW OR OPINION 
STATED DO NOT NECESSARILY REPRESENT OFFICIAL OFFICE OF EDUCATION 
POSITION J)HP.0UC^ . 






rrr 



Project on Linguistic Analysis 
Report No* 13 




TOWARD A MODERN THEORY OF CASE 
Charles J# Fillmore 



Division of Linguistics 







SUBJECT AND OBJECT IN MANDARIN 
Shuan Fan Huan s 
Division of Linguistics^^ 1 ^^ 



SOME PROBLEMS CONCERNING THE 
ENGLISH EXPLETIVE »IT» 



D* Terence Langendoen 
Division of Linguistics 



§ 



CORRECTIONS AND ADDITIONS TO 
"TREE REPRESENTATIONS IN LINGUISTICS" 
Leroy F. Meyers 
Department of Mathematics 



^ Adjust 196 6 

Vi NATIONAL SCIENCE FOUNDATION 

0 Qs Grant No. GN-174 




Lerlc 



asxp < *. fc v. v ^‘*' A , •*, > \ t 



1 - ruin urn 1 • r i 








-140- 



SOME COMIT SUBROUTINES FOR TESTING GENERATIVE GRAMMARS 

James Tang 



A series of subroutines (READRULE, ANNOTATE, CHOOSE, STORERULE, 
ADD-ONE and SUB-ONE, DOMINATE, SUBTREE, TERMINAL, and EQUAL) has been 
written up in the COMIT programming language to provide a convenient 
way for linguists to test any set of grammar rules and to generate sen 
tences. The user of these routines is not required to have any back- 
ground or experience in digital computer programming. When one tests 
the linguistic rules, all he needs to do is merely punch the rules on 
data cards and submit the data cards together with the relevant sub- 
routines and a skeleton program to the computing center. Since not 
all subroutines necessary for this procedure have been written up, 
only certain types of testing can be done at present. 

In general, we punch a linguistic rule in the form 



where the dollar sign is used to indicate to the computer the end of 
the rule. A rule may extend over several punched cards. If there is 
no context, i.e. if the rule is context-free, then both slants to the 
left of the equals sign are omitted. Similarly, if there are no con- 
ditions, then the slant to the right of the equals sign is omitted. 

For instance, a linguist may write a context-free rule without 



LEFT-CONTEXT/LEFT-SIDE/RIGHT-CONTEXT=RIGHT-SIDE/CONDITIONS$ 




conditions as follows 




( 1 ) 
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Each letter stands for a constituent, which nay actually consist of 

more than one written character. The notation has the following sig- 
nificance. 

* ' 

(G) means: the constituent C is optional. 

E* means: the constituent E is repeatable (i.e., B, SB , 

E E E , etc., are alternatives)* 



ft 



GJ “ ean8: Either F or G may be chosen, but not both of them. 

(HilJ) means: at least one of H , J must be used (i.e., H , 

J , or H J ), in the order given; similarly 
fH I ' 



(H IjjJ) is equivalent to 



J 

H I J 



The linguist's two-dimensional display of the rules is compressed 
to a linear expression 



S = A(B(C,)(D,)B*(F,G),(«H I, J) (K,L,M(N, ) ) )$ 



( 2 ) 



which is punched on a card. This compression is obtained in the fol- 
lowing way. 



A comma means "or". 

A star not immediately after a left parenthesis means: repeat the 

preceding element as often as desired. 

A star immediately after a left parenthesis means: choose at least 

one element from what is included in the parentheses; if several ele- 
ments are chosen, they must be in the order given. An element may 

consist of one or more constituents, and is bounded by commas or 
parentheses. 

A dollar sign means: the end of the rule. 

Thus, (C) in the linguist's display (l) is rewritten as (C,) 
in (2>, eince the alternatives are C and the empty string. Also, 
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S* in (1) corresponds to E* in (2), is rewritten as (F,G) , j 

and (H IjJ) is rewritten as (*H I,J) 

A rule in the form (2) can be easily punched on one or more data 
cards, constituents in a rule are separated by spaces or punctuation 
marks, and optional spaces may be used (except within single con- 
stituents. 

The first subroutine (READRULE) reads in data cards until a 
dollar sign has been found, and makes the first tests for well-formedness. 

This subroutine has been completed only for context-free rules without 
conditions . The left side is separated from the right side. 

The next subroutine (ANNOTATE) in effect puts subscripts on the 
commas and parentheses on the right side of a linguistic rule, for easy 
reference when the rule is later applied. In the actual operation of 
the subroutine, however, the parentheses are replaced by commas, and an 
indication of depth of parenthesis nesting is placed as a separate con- 
stituent before each comma. An additional pair of parentheses is placed 
about the whole right side. Thus each comma or parenthesis is replaced 
by a pair of constituents (called a "marker”) i , . where 

i is the depth of parenthesis nesting, 

j is the number of alternatives preceding this marker at this level 
(and so is 0 if the marker replaces a left parenthesis), 

and q is a special subscript, which is END if this is the last 
marker of this component at this level (i.e. if the marker 
corresponds to a right parenthesis); the subscript includes 
USE if at least one element of this component must be used 
(i.e. if the left parenthesis for this component is immediately 
followed by a star). 

A star not after a left parenthesis becomes a special constituent 
* REPEAT. 

Thus the right side of (l) or (2) is annotated as 
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1 *0 A 2 *0 B 3 ’0 ° 3 ’1 3 * 2 , END 3 *0 D 3 *1 3 *2, END E * REPEAT 

3 *0 F 3 *1 G 3 * 2 , END 2 *1 3 f 0 ,USE H 1 3 *l f USE J 3 » 2 , USE, END ( 3 ) 

3 *0 K 3 *1 L 3 *2 M k *0 N 4 *1 * *2, END 3 *3, END 2 * 2 , END 1 »1,END 

The subroutines ADD-ONE and SUB-ONE are needed to perform the 
arithmetic in constructing the markers, since the C0MIT programming 
language provides arithmetic only for subscripts* 

An annotated rule is then stored away by the subroutine ST0RERULE. 
Control is then returned to READRULE, and another grammar rule is read 
in* After all grammar rules have been stored y we may apply them to 
generate sentences* Of course, we should specify in advance the 
number of sentences we want and the proper initial symbol (usualy S) y 
which is taken as the name of the root node of the phrase marker* 




ERIC 



The subroutine CHOOSE will choose an alternative from the annotated 
right side of a linguistic rule* At present, the choice is made ac- 
cording to the C0MIT random subrule chooser. It is assumed that no 
choice involves more than 36 alternatives* 

The subroutine CHOOSE is used to pick a number from 1 to n, where 
n is a positive integer less than 37* by using the random feature of 
C0MIT. An unwritten subroutine, SUBRULE, will use this choice to pick 
one of the alternatives in a grammatical linguistic rule* For example, 
in the rule given in ( 3 )* a choice is made from the one component at 
level 1, yielding the whole rule* Then t’.e constituent A is chosen 
automatically, and a choice is made among the two components at the 
second level* Suppose that the second component is chosen* We now 
have chosen a simpler rule 



A(*H I , J)(K,L,M(N, ) ) 



in the notation of (2)* Then a third-level choice is made* Suppose 
that we choose both H I and J* Thus we have chosen 
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A H I J(K,L,M(N, ) ) 



Again a third-level choice is made* Suppose that the third element 
M(N,) of this component is chosen* Thus we have chosen 

A H I J M(N, ) 

The constituent M is now required, and a fourth-level choice is 
made between N and the empty string* Suppose that the empty string 
is chosen* Thus we have chosen 

AHUM 

which is our final rule since no more choices can be made* 

A sequence of linguistic rule applications leads to a phrase-marker 
tree* We use modified polish notation to indicate such a tree* 

Simply stated, the numerical subscript on a constituent (i*e* a node 
of the tree) gives the number of nodes which are dominated directly 
by this constituent* For example, the tree 











since the node S dominates the three nodes A , E , and J ; the node 
A dominates the two nodes B and D ; the node B dominates the one node 
C ; the nodes C , D , G ,• H , I f and J are terminal nodes (i.e. they 
dominate no nodes); a terminal node is considered to have a zero numerical 
subscript, or no numerical subscript* 

Several of the subroutines are concerned with manipulation of 
trees* One of them, TERMINAL, constructs the string of terminal symbols 
from a given tree* Thus the result of applying TERMINAL to the tree 
(4) or ( 5 ) is 



C D G H I J 



The subroutine SUBTREE divides a tree into three parts according 
to a specified node occurrence. The middle part consists of this 
specified node, together with everything dependent on it* The left 
part and the right part are the parts of the original tree which are 
to the left and right of the middle part* Thus, if the subtree dominated 
by the node P in (4) and ( 5 ) is wanted, the result is 



left: 



middle : 



l 2 B 1 
G H 



right : 



C D 
I 




The subroutine DOMINATE determines the node which immediately 
dominates a given node in a tree* A special marker *X 1 is placed 
before the given node* Thus the result of applying DOMINATE to the 
node D in (4) and ( 5 ) is 



left : 

middle and right: A^ C *X^ D E^ G H I J 

The subroutine EQUAL tests whether or not two strings (such as 
trees) are equal* 
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The complete listings of the subroutines, together with a mere 
technical description of what they do, follow. 
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FORM) 

✓ CONDITIONS 



$) 



(SUBROUTINE READRULE. FIRST VERSION.) 

J ENTRY POINT. READRULE) 

(FUNCTION. A LINGUISTIC RULE IS GIVEN ON CARDS IN THE 
J 4EFT-C0NTEXT / LEFT-SIDE / RIGHT-CONTEXT * RIGHT-SIDE 
(IF NO CONTEXT* BOTH SLANTS ON LEFT ARE OMITTED.) 

(IF NO CONDITIONS* THE LAST SLANT IS OMITTED.) 

(READRUI F^RPft^i^Tuccc ** ALL SYMBOLS AFTER $ ON A CARO ARE I0N0RED.I 

sroRES L fHF E fppT I 2ii2 E !« n C i R 2 S IN F0RMAT C FR0M THE input tape anoi 

'and m! respect I velyo R10HT SIt>E 0F THE RULE 0N SHELVES m ' 

J. 1 " THE LEFT-SIDE AND THE RIGHT-SIDE* SPACES OR PLUS SIGNS SEPARATE) 

(ENCLOSE T SETs°OF T ALTPRiI?iiS2c MAS SEPARATE ALTERNATIVES. AND PARENTHESES) 
( ENCLOSE SETS OF ALTERNATIVES# A STAR AFTER A LEFT PARENTHESIS! 

(INDICATES THAT AT LEAST ONE ALTERNATIVE — POSSIBLY SEVERAL ALTERNATIVES) 

B£ CH0SEN * A STAR OTHERWISE I»i£a?Es5Kt ThI ITeAY 

(MAY°BE OMITTED.) E REPEATED# AN iNITlAL A ND FINAL SET OF PARENTHESES) 

(EACH LINGUISTIC CONSTITUENT IS COMPRESSED INTO A SINGLE COMIT) 
(CONSTITUENT. EACH PARENTHESIS* COMMA* AND STAR IS COPIED AS A SINGLE) 

!n? M Jl T ^ N fi TUENT - ™ E SPACE AND PLUS SI6N ARE AMOVED. SOME REMOVAL ) 
| E ^f^ RA Pa R en THESES» SPACES* AND COMMAS IS DONE IN THE LEFT-SIDE.) 
j‘ R jf RESULT OF THIS TRIMMING IS LEFT IN SHELF 111. IF THE LEFT-SIDE) 

(COMI? N CONTITUENT^) ISTIC C0NSTITUENT * THIS IS COMPRESSED INTO A SINGLE) 

(AT PRESENT»THIS SUBROUTINE CAN DEAL ONLY WITH RULES HAVING NO) 

(CONTEXT AND NO CONDI TIONS*WITH ONLY ONE LEFT-SIDE CONSTITUENT.) 
(RESTRICTION. THE SYMBOLS + »$ = /* PARENTHESES AND SPACE MAY NOT) 
(BE USED WITHIN LINGUISTIC CONSTITUENTS.) 

(WORKSPACE. INPUT. DESTROYED. OUTPUT. RETURN) 

(SHELVES USED. 1 11 .OUTPUT .LEFT HALF) 



( 

( 

(EXIT. 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 

( 



112 .OUTPUT. RIGHT HALF) 

127 .PUSHDOWN STORE FOR SUBROUTINES) 

1. SUCCESSFULLY READ IN ONE GRAMMAR RULE.) 

2 £ 0 f A i LURE# THE RULE IS CONTEXT-SENSITIVE.) 

PRINT. IN SUBROUTINE READRULE. THE RULE +WHOLERULE+ IS CONTEXT-) 
SENSITIVE.) 

IS LEFT-COMPOUND.) 

READRULE. THE LEFT SIDE OF THE RULE) 

IS COMPOUND.) 

HAS CONDITIONS.) 

READRULE. THE RULE+WHOLE RULE+HAS ) 



3. FAILURE. THE RULE 
PRINT. IN SUBROUTINE 
♦WHOLE RULE* 

A. FAILURE. THE RUL? 

PRINT. IN SUBROUTINE 
CONDITIONS.) 

5. FAILURE. THE RULE HAS NO * SIGN.) 

PRINT. IN SUBROUTINE READRULE. THE RULE+WHOLE RULE+HAS NO) 
EQUALS SIGN.) 

6. FAILURE. THE RULE HAS NO END SYMBOL S.) * 

PRINT. IN SUBROUTINE READRULE. THE END OF RULE % IS NEVER) 

I FOUND I N+ WKOL EDA T A+ . ) 

!’ ?I 0RE ALL IN SHELF in* OTHERWISE. 

AND RIGHT HALF SEPARATELY. IN EXITS 1. 3. AND 4. THE 
(TRIMMED. AND IN EXITS 1 AND 4. IT IS COMPRESSED.) 

(SUBROUTINE READRULE HAS 36 COMIT RULES.) 

READRUlE % * //*A111 1 »*A112 l.*A112 l.*RCKl * 

READRUlE.O $+#*♦$♦#, — A+l //*A112 1 READRULE. 1 

* $+*• * //*Q112 l.*RCK2 READRULE. 0 

* S a //*A112 1 * 

* * * 1 + " I f -SUBROUT I NE-READRULE t-THfe-E ND-OF — RULE-*$- 1 S-NEVE R-FOUND- 

-IN*.-+U*.*0 //*Q1U 1 »*WAM2 3 4»*N127 1 * 

* $1 * l/.fc $ (NO SYMBOL J.END OF FILE) 

READRUuE. 1 $+*■♦$ a 1+3//4Q112 2 READRULE. 2 

* J “ -IN-SUBR0UTINE-READRULE.-THE-RULE*.-+1+*S*.-HAS-N0-EQUALS-SIGN.- 

*•*0+1 //*WAM1 2 3**N127 1»*Q111 4 * 

* $1 = 1/.5 $ (NO EQUALS SIGN) 

READRUuE. 2 $+«/+* » A+1+2.+3+* +A //*N127 l.*A112 6 READRULE. 3 



STORE LEFT HALF) 
LEFT SIDE IS) 
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* S « *A+1+»B READRULE.4 

READRUcE.3 $l+$4-*«+S « 1/ .2+24-44— IN- SUBROUT 2 NE-READRULE t-THE-RULE*. < -+2— 
4-3+4+*S*.-IS-CONTEXT*-SENSITIVE.*.*0 //#Q1U 2»*QU2 3t«WAM4 5678 S 
(CONTEXT-SENSITIVE) 

READRUcE.4 *A+- - 1 READRULE.4 
READRUcE.4A *A4-*4- *1 READRULE.4 
READRUcE.5 -+*B * 2 READRULE.5 

READRUcE.5A *+ +#B*2 READRULE.5 
READRUcE.5B *A+*(+$+*)+*B « 14-345 READRULE.4 

* - * REA0RULE.6 

* » * READRULE.6 

* *( * READRULE.6 

* *) * READRULE.6 

* *4- * READRULE.6 

* ** * READRULE.6 

* *A+$+*B * 2//*IU»*Qlll 1**A112 1 READRULE.7 

READRUcE.6 #A+$+*B * A+2+#*+B //*N127 1»#AU2 4 # 

* SX4-$4-*«4-J * 1 / • 34-24-44— I N-SUBROUT I NE-READRULE • -THE-LEFT-S 1 DE-OF-THE— 
RULE*.-+2+3+4+*$*.-IS-C0MP0UND.*.*0 //#Q1U 2.#Q112 3.*WAM4 5 6 7 8 S 

(cEFT-COMPOUND) 

READRUcE.7 $+*/+$ a A+A+#*+l+2+3 //*N127 1»»A1U 2 READRULE.il 

* S » #A+1 # 

READRUlE. 8 *A4-$1 a //*L2 READRULE.LIS 

* $+#A * //#QU2 l.#N127 2 # 

* $1 * l/.l S (SUCCESS) 

-READRULE.LIS - * 0 READRULE.9 

*4- a o READRULE.9 
*( * READRULE.10 
*) * READRULE.10 
• a READRULE.10 
** * READRULE.10 

* S+*A4-Si a 14-34-2 //*K1 2 READRULE.8 

READRUlE.9 $4-*A * //*Q112 1 READRULE.8 
READRUlE.IO $4-#A+$l a //*Q112 1 3 READRULE.8 

READRUcE.il $l4-$4»#a4-s a 1/.4+2+4+-I N-SUBROUT I NE-READRULE .-THE-RULE*.-+- 
24-34-44-#$* . -HAS— COND I T I ONS • *.*0 //*Q111 2 .*0112 3.*WAM4 5 6 7 8 $(CONDS.) 
(END OF SUBROUTINE READRULE.) 
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( SUBROUTINE ANNOTATE*FlRST VERSION) 

(ENTRY POINT • ANNOTATE) 

(FUNCTION* FOR RIGHT SIDE# AFTER REAORULE* REPLACES ALL PARENTHESES*) 
(COMMAS* AND STARS BY COMMA WITH SUBSCRIPTS* TOGETHER WITH AN) 
(INDICATION OF DEPTH OF PARENTHESIS NESTING* OTHER SYMBOLS— THE) 

(NODE NAMES — ARE LEFT UNCHANGED* THE COMMA WITH SUBSCRIPTS) 

(WILL BE USED LATER FOR RANDOM CHOICE OF ALTERNATIVE SUBRULES*) 

(EACH LEFT PARENTHESIS* RIGHT PARENTHESIS* OR COMMA IS REPLACED BY) 

(A MARKER *M+>/*N*Q WITH TWO CONSTITUENTS* WHERE M IS THE ) 

(DEPTH OF PARENTHESIS NESTING* N IS THE NUMBER OF ALTERNATIVE) 
(CONSTITUENT STRINGS PRECEDING THIS MARKER IN THIS COMPONENT) 

(AT THIS LEVEL* AND Q IS A LOGICAL SUBSCRIPT* WHICH DOES NOT) 

(ALWAYS APPEAR*) 

(N IS 0 FOR A LEFT PARENTHESIS*) 

(Q INCLUDES END FOR RIGHT PARENTHESIS* ) 

(EACH STAR IS REPLACED BY **/REPEAT IF IT IS NOT IMMEDIATELY AFTER) 

(A LEFT PARENTHESIS* OTHERWISE* IT MEANS CHOOSE AT LEAST ONE OF) 

(THE CONSTITUENT STRINGS IN THIS COMPONENT *AND IS DELETED*) 

(BUT USE IS PUT AS SUBSCRIPT ON ALL MARKERS *M+*/«N*Q IN THIS) 
(COMPONENT AT THIS LEVEL*) 

(THE ORIGINAL STRING IS ENCLOSED IN PARENTHESES INITIALLY*) 

(ALL OTHER INPUT SYMBOLS REMAIN UNCHANGED*) 

(RESTRICTIONS* NONE*) 

(SUBROUTINE USED* ADD-ONE*) 

(WORKSPACE* INPUT* ORIGINAL STRING*) 

( OUTPUT* RETURN FOLLOWED BY ANNOTATED STRING*) 

(SHELVES USED* 123*TEMPORARY STORAGE FOR ORIGINAL UNANNOTATED STRING) 

( 124*TEMPORARY STORAGE FOR UNFINISHED PART) 

( 125* TEMPORARY PUSHDOWN STORAGE FOR SUBSCRIPTING) 

( 126*TEMPORARY STORAGE FOR FINISHED PART) 

( 127*PUSHDOWN STORE FOR SUBROUTINES) 

(EXIT* 1* SUCCESS* THE WORKSPACE CONTAINS THE ANNOTATED STRING) 

( PRECEDED BY THE SUBROUTINE RETURN*) 

( AND SHELF 123 CONTAINS THE ORIGINAL STRING*) 

( 2* FAILURE* THE INPUT STRING IS NOT WELL FORMED*) 

( SHELF 126 CONTAINS THE PORTION ALREADY ANNOTATED*) 

( PRINT* IN SUBROUTINE ANNOTATE* THE STRING +WHOLE ) 



( STRING* IS NOT WELL FORMED*) 

( 3* FAILURE* THE INPUT STRING IS EMPTY*) 

( PRINT • IN SUBROUTINE ANNOTATE* THE INPUT STRING IS EMPTY*) 

(IN CASE OF FAILURE»THE ORIGINAL INPUT IS RESTORED TO THE WORK-) 

( SPACE *PRECIDED BY THE SUBROUTINE RETURN*) 

(SUBROUTINE ANNOTATE CONTAINS 22 RULES*) 

ANNOTATE $1+S * A**0**( +H-2*») *1+2 //*A123 1*#A124 1**A125 1**A126 1*- 
♦A126 1 **S125 2 **Q124 A 5 6**Q123 7 8**L3 ANNOTATE*! 

* Sa- 1 N-SUBROUT I NE-ANNOTATE*-THE- 1 NPUT-STR I NG-IS-EMPTY*** *0- 

//*WAM1**N127 1 * 

* SI a l/*3 S (EMPTY WORKSPACE) 

-ANNOTATE*! *(* //»N124 1 ANNOTATE* 1 

» « A+A//*N125 1 **N125 2 ANNOTATE* 5 
*)= A*A//*N125 1**N125 2 ANNOTATE* 7 

#* * *#/REPEAT //*Q126 1 ANNOTATED 



* $1* //*Q126 1 * 

ANNOTATED $*//*N124 1 * 

* $1* //*L1 ANNOTATE* L 

* $« //*A125 1 * 

* $2 a ANNOTATE* 8 

* $*A+A//*N127 lt*A126 2 * 

* $1*1/*1 S( SUCCESS) 

ANNOTATE* 1 ** - »/*0»USE ANN0TATE*2 

* $l»l+*/*0 //*S124 1 * 

ANNOTATED S«ADD-0NE/ANN0TATE*3+1//*S127 1*»S126 2**N125 1 * 

* S1«M*1//*S125 1**E2 ADD-ONE 

ANNOTATE* 3 Sl+$a2*A //*N126 2**K1 * 



O 






^~/?»*WF3gr*yW'i W f*Z,*i?- '- - T‘7^7 V -T* o’*; ^73,™^ V>^^TF^ , >', . 7 , 
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ANNOTATE#0 



ANNOTATED $l+$l*l+2+l+2/#ll//*Q126 1 2 » *5125 A 3 

* ANN0TATE.8 

ANN0TATE.7 $l+$l*l+2/END //*Q126 1 2 ANNOTATED 
ANNOTATE#® S • //*A123 1 # 

* ® * "IN“$UBROUTINE**ANNOTATE» , *'THE* I, 'STRING*#+1+*IS ,, NOT—WELL*— formed**^ 

*0+1 //*WAM1 »*WSM2 »*WAM3 »*N127 1 * FORMED#*. 

* 51*1/ #2 S I NOT WELL-FORMED) 

(END OF SUBROUTINE ANNOTATE) 



I 
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( subroutines add-one AND SUB-ONE •) 

C ENTRY POINTS* ADD-ONE AND SUB-ONE*) 

(IF THE WORKSPACE CONSISTS OF A STRING OF SINGLE-DIGIT CON^titlipnt^i 
THEN 1 IS ADDED TO THE DEC IMAL NUMBER IT REPRESENTS* ^FOR?^*^ * 

CFOr"sUB-ONE*) IS SUBTRACTE0 FR0M 7HE DECIMAL number it REPRESENTS# | 
!!^?? FLU0US INI7IAL ZEROS ARE ELIMINATED*) 

!S2r*f T!TUEWTS RE7A1N THE SUBSCRIPTS OF THE DIGITS THEY REPLACE.) 

(THUS# ADD-ONE APPLIED TO *0/A ♦ #0/B +*9/C ♦ *9/.l ) 

(RESTRICTIONS. NONeI # l ' B * # ° /C + # °'- 5 
(WORKSPACE* INPUT. ORIGINAL STRING*) 

| OUTPUT* RETURN FOLLOWED BY THE RESULTING STRING OF) 

( ONE-DIGIT CONSTITUENTS*) 

5t??ic E ? U f E0# 127# ASHDOWN STORE FOR SUBROUTINES*) 

(EXITS 1. SUCCESSFUL ADDITION OR SUBTRACTION*) 

FAILURE* THE WORKSPACE IS INITIALLY EMPTY*) 

PRINT* IN SUBROUTINE ADD-ONE OR SUB-ONE •) 

THE WORKSPACE IS EMPTY*) 

FA I»V2! # 7HE .' WORKSPACE CONTAINS THINGS OTHER THAN DIGITS.) 

£ R l?Itwr IN nft2c°i! TIf4E A0D " 0NE 0R SUB-ONE* THE WORKSPACE#) 
♦ STRING ♦ DOES NOT CONTAIN ONLY DIGITS* ) 

FA IoV5f F0R SUB-ONE ONLY. THE WORKSPACE CONTAINS ZERO ONLY*) 

ZERO^ONLY^ ^ UB * 0U7INE SUB-ONE* THE WORKSPACE CONTAINS ) 



T fL W0R ! C ? PACE IS re STORED. PRECEDED BY THE RET.) 



HAVE 21 RULES ALTOGETHER.) 



# WAM2 3 S( EMPTY) 



(SUBROUTINES ADD-ONE AND SUB-ONE 

ADD - ONE *D2-^:r!oT?^^iT*- ONE * 

St3-ONEAD*_= N -IN-|UBROU T INE-SUB*-°NE, 41 //»S127 1. ADD-ONE. 2 SOB.- 

ADD-ONE.O SI = *Z+1 ADD-ONE* I 

* S * A+A //*N127 2#*N127 1 * 

* Sl+Sl « l/*2+2+-THE-WORKSPACE-IS-EMPTY**« // 

* 2+$1 * 2+ *Z/S«2 //*L1 ADD-ONE* LI ST 
ADD-0NE.2 ADD S1+*Z **Z/S*1+1 //*L2 ADD-ONE*MIST 
SUB **Z/SU+1 //*L2 SUB-ONE *MI ST 

ADD-ONE* 3 ADD *Z «*Z+*1 ADD-ONE* 7 
SUB = 0 * 

SUB-0NE*4 *9*$ » 2+*0/S*l SUB-0NE*4 

* S = A+A+l //#N127 2**N127 1 * 

ADO-ONeV i«E4M*I M fl!?!v*i2 E *S WTA,NWER ^ 0NtV, *‘ //#WAW 3 * I2ER0 ' 

ADD-0NE*6 *Z**0+S1 = 1+3 ADD-0NE*6 
ADD-ONE* 7 SI = //*N127 1»*N127 1 * 

* SI * l/.l 
ADD-ONE *8 






1 s 


(SUCCESS) 




*Z*$1 


* *Z+2/S*l 


ADD-ONE* 2 


ST 


*0 a 


ADD-ONE* 1 




*1 * 


ADD-ONc* 1 




*2 * 


ADD-ONE* 1 




*3 * 


ADD-ONE* 1 




*4 * 


ADD-ONE* 1 




#5 s 


ADD-ONE* 1 




#6 B 


ADD-ONE* 1 




*7 * 


ADD-ONE *1 




•8 « 


ADD-ONE* 1 




• 9 B 


ADD-ONE* 1 



S+*Z * A+A+l //*N127 2#*N127 1 * 

Jit? 1 !* * 1/ » 3+ 2+-THE-WORKSPACE#*.+3+-DOES-NOT-CONTAIN-ONLY- 



-DIGlTS.*.+3 //*WAM2 3**WSM4#«WAM5 
-ADD-ONE.MIST 



*0 


S 


*i 


ADD-ONE* 5 


*1 


* 


*2 


ADD-ONE* 5 


*2 


* 


*3 


ADD-ONE* 5 


*3 


m 


*4 


ADD-ONE *5 



S (NOT ONLY DIGITS) 



O 
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j 

$ 
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1 

1 
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iSS^“!SSaK!“ T VERS10N * F0R C0NTEXT FREE RULES 

jsrk»™ 

ISlf§^ 

(NO RESTRICTION ON INPUT CONSTITUENTS.) 

(SHELVES C USFn PU i ?n S I2° YE ? #0UTPUT IS SUBR0U TINE RETURN.) 
(SHELVES USED. 1 TO 98* AS NEEDED* RIGHT SIDES STORED) 



1. 

2 . 



99* STORAGE OF MARKER *$/.N» WHERE N IS THE NEXT) 

SHELF TO BE USED IN STORING A RULE* AND OF) 

LfcFT SIDES OF RULES* FOLLOWED BY MARKERS k/ m % 
111. INPUT. ANNOTATED LEFT SIDE! #/ * M *' 

112* INPUT. ANNOTATED RIGHT SIDE) 

127*PUSH DOWN STORE FOR SUBROUTINES) 

SUCCESS. THE RULE IS STORED ON PROPER SHELF.) 

FAILURE. THE FIRST CONSTITUENT OF SHELF 99 DOES NOT HAVE A) 
NUMERICAL SUBSCRIPT FROM 1 TO 98 INCLUSIVE.) 

PRINT. IN SUBROUTINE STORERULE. THE FIRST CONSTITUENT) 

sew: tSt.tks.8S? wt hav5 a ^riie-, 

3* FAILURE. SHELF 99 IS EMPTY.) 

PRINT. IN SUBROUTINE STORERULE* SHELF 99 IS EMPTY i 
IN CAiE OF FAILURE. ALL SHELVES ARE RESTORED.! ' 

(SUBROUTINE STORERULE HAS T RULES.) 

STORERULE $ * //*N99 1 * 

* »{•« 1, * A * 2 1,,AU2 i * #o * 2 i**Ain i.- 

* *1 5 l+l //*S9» 1.0N127 1 STORERULE. 2 

ItOrIrulf*? fLc l/ t\ * ‘SUCCESS) 

n^Sulro5mE / sS«f 3, *" AM4 4 I IMPROPER SUBSCRIPT! 



( 

(EXITS. 

( 

( 

( 

( 

( 

( 

( 



i. 

L 

*■ 

* 



< 



l 

u 

I 



f 

l 



L 



o 
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(SUBROUTINE CHOOSE) 

(ENTRY POINT, CHOOSE) 

(FUNCTION, CHOOSE AN INTEGER FROM 1 TO N* WHERE N IS THE) 

(NUMtRICAL SUBSCRIPT ON THE FIRST CONSTITUENT OF THE WORKSPACES 
(AND N IS BETWEEN 1 AND 36* INCLUSIVE, THIS INTEGER N WILL APPEAR) 
(AS THE NUMERICAL SUBSCRIPT ON AN EXTRA FIRST CONSTITUENT 
(RESTRICTIONS, NONE.) 

(WORKSPACE* INPUT* ORIGINAL STRING,) 

( OUTPUT* RETURN FOLLOWED BY ANSWER.) 

(SHELVES USED, 126* TEMPORARY STORAGE. ) 




*X*) 



( 



(EXITS, 

( 



1, 

2, 



SUBSCRIPT 
THAN 36,) 



ON THE) 



127* PUSHDOWN STORE FOR SUBROUTINES*) 

L JCCESS* A NUMERICAL SUBSCRIPT IS SUCCESSFULLY CHOSEN,) 
FAILURE, THE GIVEN INTEGER IS ZERO, ) 

PRINT, IN SUBROUTINE CHOOSE* THE NUMERICAL SUBSCRIPT ON YHE) 
FIRST CONSTITUENT +CONST ITUENT+ IS ZERO.) 

3, FAILURE, THE INTEGER IS GREATER THAN 36*) 

PRINT, IN SUBROUTINE CHOOSE* THE NUMERICAL 
FIRST CONSTITUENT +CONST ITUENT+ IS GREATER 

4, FAILURE, THE GIVEN CONSTITUENT HAS NO NUMERICAL SUBSCRIPT,) 
PRINT, in SUBROUTINE CHOOSE* THE FIRST CONSTITUENT) 

+CONSTI TUENT+ HAS NO NUMERICAL SUBSCRIPT.) 

5, FAILURE, THE WORKSPACE IS EMPTY.) 

PRINT, IN SUBROUTINE CHOOSE* THE WORKSPACE IS EMPTY*) 

ERROR EXITS* THE WORKSPACE CONTAINS, THE EXIT INFORMATION) 
(FOLLOWED BY THE ORIGINAL WORKSPACE STRING.) 

(SUBROUTINE CHOOSE CONTAINS 18 RULES.) 

CHOOSE $1+$ * A+*X/,*1+ 1+1+2 //*A126 1**A126 1**Q126 345 CHOOSE. 1 

* $*- 1 N-SUBROUT I NE-CHOOSE »-THE-WORKSPACE-I S-EMPTY •* • //- 

*WAM1.*N127 1 * 

* $1*1/. 5 S(EMPTY) 

CHOOSE. 1 $l/*GO* CHOOSE. 2 



( 

( IN 



ALl 



! 



* Sl/.O* CHOOSE. 5 

* $ 1*-I N-SUBROUT I NE— CHOOSE »-THE-F IRST—CONST I TUENT *,+A+— 
-HAS-NO-NUMERICAL-SUBSCRIPT.*.-//*N126 2»*WAM1**WSM2.»WAM3.’- 

*N127 1 »*A126 2 * 

* $1*1/. 4 $(NO NUMERICAL SUBSCRIPT) 

CHOOSE. 2 $1/.G36=-IN-SUBROUTINE-CHOOSE*-THE-NUMERICAL-SUBSCRIPT- 
-ON-THE-F IRST-CONST I TUENT+.+A+- IS-GREATER— THAN-*3*6.*,- //*N126 2»- 
#WAM1 »*WSM2 **WAM3»*A126 2.*N127 1 CHOOSE. 7 

* $1*1/CHOOSE.O+1+A/CHOOSE.4//*S126 2*CHOOSE.O $ 

CHOOSE, 4 $1+$1+31*2//*D1 * 

* $ 1= A/CHOOSE, O+A/CHOOSE, 6 $ 

CHOOSE. 5 $*A+A//*N127 1.+A126 2 * 

* $1+$1 * 1/.2+- I N-SUBROUT I NE-CHOOSE.-THE-NUMERICAL-SUBSCRIPT-ON-THE-. 

-FIRST-CONSTITUENT*. +2+-IS-ZERO.*.- //*WAM2**WSM3»*WAM4 $<0 SUBSCRIPT) 

CHOOSE. 6 $2+$l*2+ A//+A126 2 * 

* $l+$l+$l*A+2/.*l //+N127 1 * 

* $1 * 1/*1 $ (SUCCESS) 

CHOOSE ,7 $l*l/,3 $ (N IS GREATER THAN 36) 

CHOOSE. 0 1 $1+$1*2+A/CHOOSE.O l+A/,1 $ 

2 *2+A/CHOOSE.O 1 2+A/.2 $ 

3 *2+A/CHOOSE.O 1 2 3+A/.3 S 

4 *2+A/CHOOSE.O 123 4+A/.4 $ 

5 *2+A/CHOOSE.O 1234 5+A/.5 $ 

6 *2+A/CHOOSE.O 12345 6+A/.6 $ 

7 *2+A/ CHOOSE. 0 123456 7+A/.7 $ 

8 *2+A/CHOOSE.O 1234567 8+A/.8 $ 

9 -2+A/CHOOSE.O 12345678 9+A/.9 $ 

10 »2+A/CHOOSE.O 123456789 10+A/.10 $ 

11 *2+A/CH00SE,0 123456789 10 ll+A/.ll $ 



12 


»2+A/CHOOSE.O 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12+A/.12 $ 


13 


*2+A/CH00SE. 0 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13+A/.13 $ 


14 


*2+A/CHOOSE.O 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 14+A/.14 $ 


15 


“2+A/CHOOSE.O 


1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 


13 14 15+A/.15 $ 



O 
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16 


=2+A/CHOOSE.O 1 2 


3 


4 5 


6 


7 8 


9 


10 


11 


12 


13 


14 


15 


16 +iA/» 


16 S 


17 


*2+ A/CHOOSE. 0 1 2 


3 


4 5 


6 


7 8 


9 


10 


11 


12 


13 


14 


15 


16 


17+A/.17 


18 


*2+A/CHOOSE.O 1 2 


3 


4 5 


6 


7 8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18+- 


A/.18 


S 
























19 


*2<f A/CHOOSE. 0 1 2 


3 


4 5 


6 


7 8 


9 


10 


11 


12 


13 


14 


15 


16 


17 


18 19+- 


A/.19 


$ 
























20 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26 


25 


24 


23 


22 - 




21+A/»20 $ 






















21 


» 2+A/ CHOOSE *0- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26 


25 


24 


23 


22 - 




♦A/. 21 S 






















22 


*2+ A/CHOOSE. 0- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26 


25 


24 


23 


♦A/ • 22 


23 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26 


25 


24 


♦A/ • 23 $ 


24 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26 


25+A/ 


• 24 


s 


25 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27 


26+A/ 


• 25 


S 




26 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28 


27+A/ 


• 26 


s 






27 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29 


28+A/ 


• 27 


S 








28 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31 


30 


29+A/ 


• 28 


S 










29 


*2+A/CHOQSE.O- 36 


35 


34 


33 


32 


31 


30+A/ 


• 29 


$ 












30 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32 


31+A/ 


• 30 


S 














31 


*2+A/CHOOSE.O- 36 


35 


34 


33 


32+ A/ 


• 31 


S 
















32 


=2+ A/ CHOOSE. 0- 36 


35 


34 


33+ A/. 


32 


S 


















33 


=2+A/CHOOSE.O- 36 


35 


34+A/ 


• 33 


$ 




















34 


*2+A /CHOOSE .0- 36 


35+A/. 


34 


$ 






















35 


s 2+ A /CHOOSE *0- 36+A/ 


• 35 


S 
























36 


s 2+A/CHO0SE*O~+A/« 


36 


S 



























(END OF SUBROUTINE CHOOSE.) 
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( SUBROUTINE SUBTREE*) 

(ENTRY POINT .SUBTREE) 

(FUNCTION. IF A TREE IS GIVEN IN SHELVES 102.103.AND 104. AND IF A t 
(NODE NAME IS SPECIFIED AND STORED IN SHELF 100.THEN THE SUBROUTINE 
(FINDS THE FIRST COPY OF THIS SPECIFIED SoDE >r5m SHELVES ^lS5 AND fo 4 .) 
(AND DIVIDES THE TREE INTO THREE PARTS.LEFT.MIDDLE.AND RIGHT ACCORDING) 
(TO THIS SPECIFIED NODE. THE MIDDLE PART cois STS 5? THE HOOE 5Sst? 
(FOUND TOGETHER WITH ALL NODES IN THE SUBTREE DEPENDENT ON THIS) 

(NODE AND IS STORED IN SHELF 103. THE LEFT AND RIGHT PARTS ARE! 

(THE REMAINDER OF THE TREE AND ARE STORED IN SHELVES 102 AND 104* > 
(RESPECTIVELY. SHELF 100 IS RESTORED. IN THE TREE .--BUT NOT ON*SHELF ) 
(100.— NODES WITHOUT NUMERICAL SUBSCRIPT AND THOSE WITH NUMERICAL) 
(SUBSCRIPT ZERO ARE CONSIDERED EQUIVALENT.) NUMERICAL) 

(RESTRICTION.NO input constituent is #y OR #Z.) 

(WORKSPACE. INPUT .DESTROYED. OUTPUT. SUBROUTINE RETURN.) 

(SHELVES USED. 100 .SPECI FIED NODE STORE) 

( 102. LEFT PART) 

( 103.MIDDLF PART AND SUBTREE) 

( 104 .RIGHT PJCRT) 

( 127. PUSH DOWN STORE FOR SUBROUTINES. ) 

(EXIT. 1 .SUCCESS .SUBTREE FOUND.) 



( 

( 

( 

( 

( 

( 

( 

( 



2. FAILURE. THE SPECIFIED NODE DOES NOT OCCUR IN THE STRING.) 

PRINT. IN SUBROUTINE SUBTREE »+ THE SPECIFIED NODE+ DOES NOT) 
OCCUR IN THE STRING+WHOLE STRING.) 

3. FAILURE. SHELF 100 IS EMPTY.) 

PRINT. IN SUBROUTINE SUBTREE. SHELF 100 IS EMPTY.) 

4. FAILURE.THE STRING IS NOT WELL FORMED.) 

PRINT. IN SUBROUTINE SUBTREE. THE PORTION OF THE STRING+STRING+ ) 
BEGINNING WI TH+NODE+IS NOT WELL FORMED.) 

Slwn !? RINT0UT USES A CONSTITUENT *Y AS A SEPARATOR BETWEEN SHELVES 103) 

( ANi/ 1 04 1 ) 

(IN CASE OF FAILURE. SHELVES 100. 102. 103. AND 104 ARE RESTORED.) 

(THE SUBROUTINE HAS 20 RULES.) ' 

SUBTREE $=//*N100 1 * 

* Sl=l+*Y/.0+L+*Y/.l+L//*A103 3»*A104 5 SUBTREE. 0 

* S*-IN-SUl. ROUTINE-SUBTREE. -SHELF-*1*0*0-IS-EMPTY.*.//*WAM1.- 

*N127 1 * 

* Sl=l/.3 $ (EMPTY) 

SUBTREE.O S1/.0+* Y/.O » 1/-.+2 SUBTREE . 1 

* il+ # Y+J+l * 1+*Z/. 0.. I.*4+2+3+4 //*S 100 lt#Q102 3 4. *0103 5 SUBTREE*? 
SUBTREE.OA $ 1 +*Y+S+*Y+S *-IN-SUBROUTlNE-SUBTREE.+l+-DOES-NOT-OCCUR-IN- 
-THE-STRlNG-+3+*Y+5+ *.+l+3+5//*WAMl .*WSM2.*WAM3." 

*WSM4 5 6.*WAM7.#S100 8.*Q103 9.*G104 10.*N127 1 * 

* Sl=l/.2 $ (SEARCH FAILS) 

SUBTREE . 1 Sl+*Y+$+l = //*Q104 3 SUBTREE . 1 A 

* Sl+Sl+S * 1/.0+2+A+3 //*A104 3 SUBTREE.OA 
SUBTREE. 1 A S1+*Y/ .0+$1/.GO « //*Q104 3 SUBTREE. 1 

+2+A+3//*S100 l.*A104 4. *0102 3 4. *0103 5 * 
SUBTREE . 2 *Z/.GU+ $ 1 = 1 /. I.*2».Dl+2//*Q103 2 SUBTREE. 2 

* *Z/.0 *A+*Z+B+*Z // *A102 l.*A103 3 SUBTREE . 3 

* *Z *A+A+A//*N100 1 »*A102 2.*A103 3 * 

# c T JiJ:J + *T + ! + * Y+$S!l+ 2 + 4 + 6 + ’‘ IN ” SUBROUTlNE “ SUBT REE.-THE-PORTION-OF-THE- 
"* TRING— «-4»*Y+6+-BEGI NNI NG-WI TH— )-l+- 1 S-NOT-W ELL-FORMED. *•-> 

//*S100 l.*Q102 2. *0103 3. *0104 4»*WAM5»*WSM6 7 8.*WAM9»- 
*WSM10.*WAM11.*N127 1 * 

* Sl*l/ .4 S (NOT WELL FORMED) 

SUBTREE. 3 *Y*S+*Y * 2 * 

* S+*Z+$+*Z+S»l+3+5 //*Q102 1»*Q103 2. *0104 3#*N127 1 * 

* Sl»l/.l S (SUBTREE FOUND) 

(END OF SUBROUTINE SUBTREE.) 



1 











1 , 

2 , 



C SUBROUTINE DOMINATE.) 

CENTRY POINT. DOM I NATE) 

( IS^GIVEN*IN^SHELVES^102*103?AND^loI^THIS^SUBBrtUTf 2 P0LISH STATION) 
CNODE WHICH IMMEDIATELY DOMINAt?<; 1 tJc T SJL5 UBR0UTINE FIN0S ™E) 

C 103 »AND THEN BREAKS UP Selff J 2 E ro« S I C 0 NST 1 ™ENT OF SHELF) 

CTHE NODE JLST FOUND, ^TOGETHER WITH InSIf PARTS 50 TH/ * T) 

(SHELF 102 AND PLACED AT THE BEG (EJlSfi or 15 REHQYE0 FR0M > 
(*X/.l IS PLACED BEFORE THE GIVEN NODE if pin mdc* e A ** E " CONSTITUEN 

7V E * SHELVES ’ 

:sH^^ s Ac ^^: u ;« D f s ^r^rjp u T T R^r oui,NE return - 

103 » MIDDLE PART OF TREE) 

104 » RIGHT PART OF TREE) 

126 » TEMPORARY STORAGE) 

SUCCESS) PUSHD0WN ST0RE F0R SUBROUTINES) 

FAILURE. THE NODE GIVEN IS THE Initial ninnc I 

PR,NT ;i!T?A U L R rrop°?H M E^ E E |:r TESTi °* +NOOE+ «• THE, 

oSJhx RE#SHELF 103 Is empty.) 

IN SUBROUTINE DOMINATE* SHELF 103 IS EMPTY i 

PR,N^S , SUS}?SE , §o2?^?l^ra , TE S T 6 D +NO0E+ IS , 

DOMIn!t BR0U ' 1NE C °HTAINS N 17 E RULES?r N<>1>E IN SHELF 102 ’ +LEFT PART+ •» 
DOMINATE S*//#A 126 lt*N 103 X # 

* SI * //*S 103 1 > *A 102 1 DOMINATE . 1 

t v;r^^ 1 T ]? E r oo :‘-T E .-sH E LF -nio. 3 - 1 s- E HPTr...- 

* Sl*l /.3 S (EMPTY 103 ) 

DOMINATE . 1 $ 1 « DOMINATE . 2 

* $* //*N 103 1 * 

i O 0 M.MATE .2 

DOMINATE. 3 - 

; ‘ssis-u-*® »»"'*•♦ 

* *M,lt 8+C / / ! ,N127 »** N103 2 »*A 102 3 . UO,,,N * TE * 3 

-i!iSST-SoM I Ai;^?e?:^:NODE-iNi 2 HE?? M i! , «fi' T ? e : Not>E - TesTeo * +2+ - 

// * S103 2‘* 01 °2 

* Sl»l/.l $ (SUCCESS) 

(END OF SUBROUTINE DOMINATE) 



( 

( 

( 

( 

(EXITS, 

( 

( 

( 

( 

( 

( 

( 

( 
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( SUBROUTINE EQUAL*) 

(ENTRY POINT* EQUAL) 

(TEST IF THE STRINGS IN SHELVES 107 AND 108 ARE IDENTICAL*) 
(RESTRICTION* NO INPUT CONSTITUENT SYMBOL IS *A.) 

( WORKSPACE* I NPUT • DESTROYED* OUTPUT 'RETURN* ) 

(SHELVES USED* 107 AND 108* I NPUT* RESTORED IN ALL CASES* } 



( 



(EXITS* 

( 

( 

( 



1* 

2 * 



127 tPUSHDOWN STORE FOR SUBROUTINES*) 

SUCCESS* EQUALITY*) 

FAILURE* INEQUALITY*) 

PRINT* IN SUBROUT I NE5EQUAL * T ) E STRING IN SHELF 107»+STRING+) 
IS NOT EQUAL TO THE STRING IN SHELF 106'+ STRING*) 
(SUBROUTINE EQUAL HAS 9 RULES*) 

EQUAL S* *A/.1+*A// *Q107 1**Q108 2*«N107 1**N108 2 * 

EQUAL* 1 Sl+1 * 2+1 EQUAL *3 

# *A+*A * A //*N127 1 EQUAL* 4 

EQUAL *2 Sl+Sl * 1++A+2 //*S107 1»*S108 3**A107 1**A108 3 * 

# $+#A+$+*A+$+*A+$ « A+3+l+*A+7+5 //#N127 1 # 

# $1+S+*A+S * 1/.2+2+4+-IN-SUBR0UTINE-EQUAL.-THE-STRING-IN-SHELF- 
-*l*0*7**.+2+-IS-NOT-EQUAL-TO-THE-STRING-IN-SHELF-*l»0*8'».+4+*. //- 

#Q107 2»#Q108 3 »*WAM4 »*WSM5 **WAM6**WSM7 **WAM8 5 (FAILURE) 

EQUAL *3 Sl+1 * //*Q10S 1**Q107 2*»N107 1**N108 2 EQUAL *1 

# Sl+Sl = 2+1 EQUAL* 2 
EQUAL* 4 SI * 1/*1 S (SUCCESS) 

(END OF SUBROUTINE EQUAL*) 




mm/ssmiM 
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"159* 

< ( fw?SS UTlNE RHINAL., 

!a N tree P is N g? terminal, 

hkMSSSM 

(REs?R7^?m INAL SVMBOt £aS A N^rNUM^!^^ 
'RESTRICTIONS. NONE., W 4t "° NUMERICAL SUBSCRIPT.* 

(WORKSPACE. INPUT, ORIGINAL STRING., 

STL® 

SS"?® 3 *^ sal- NEED N0T 8E ^* F0RM£0 -’ 

l tKMINAL.l 51/ .0 • l/- # TERMIMai i 
* * * A+l //#N127 1 s i p w t -RMINAL. 1 

(END OF SUBROUTINE TERMINAL 
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